home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aay.d64 / to-do (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  301 lines
  1. 0 GOTO1000
  2. 1 WELCOME TO T0-DO!!! YOU ARE ABOUT TO
  3. 2 BECOME EXTREMELY ORGANIZED.
  4. 3 YOU CAN EASILY PLACE DATA AT THE
  5. 4 LINES YOU ARE NOW READING. TRY IT!
  6. 5 SIMPLY PRESS 'A' (FOR ADD).
  7. 6 NOW ENTER THE LINE NUMBER (TRY '1').
  8. 7 NEXT TYPE IN THE LINE TO BE STORED.
  9. 8 WOW!
  10. 9 EASY!
  11. 10 ------- ^ HOT ^ ------ A'S:
  12. 11 YOU CAN MODIFY BY SELECTING 'E'
  13. 12 (EXIT) THEN USING CURSER CONTROLS
  14. 13 TO MOVE TO THE LINE TO MODIFY. ONCE
  15. 14 DONE MODIFYING HIT <RETURN> THEN
  16. 15 MOVE DOWN TO THE WORD 'RUN' AND HIT
  17. 16 <RETURN>.  TO SEE OTHER LINES HIT A
  18. 17 NUMBER 1 THRU 9 OR HIT 'M'.  TO SAVE
  19. 18 YOUR DATA HIT 'U' AND SELECT 'SAVE'.
  20. 19 NOW PUSH THE KEY '2' FOR MORE.
  21. 20 ---------------------- B'S:
  22. 21 WOW!! MORE HELP.  NOW PUSH '3' TO
  23. 22 LIST LINES IN THE SECOND HALF OF THE
  24. 23 SCREEN.
  25. 24 -
  26. 25 PUSHING ONE DIGIT NUMBERS OR 'M'
  27. 26 FLIP-FLOPS THE DATA DISPLAYED ON
  28. 27 THE SCREEN IN ANY SEQUENCE...
  29. 28 -
  30. 29 -
  31. 30 ---------------------- C'S:
  32. 31 WOW!!! THIS IS GREAT! NEXT TRY THE
  33. 32 OTHER SELECTIONS LISTED AT THE
  34. 33 BOTTOM OF THE SCREEN.  PLEASE
  35. 34 CHECK OUT 'H' AND HEED INSTRUCTIONS.
  36. 35 -
  37. 36 PRINT YOUR LISTS USING UTILITIES.
  38. 37 HAPPY STORAGE!
  39. 38 -
  40. 39 PUSH '4' FOR MORE.
  41. 40 -
  42. 41 YOU CAN FLIP-FLOP LINES WITHIN ANY
  43. 42 NINE-LINE SET USING THE 'P' (PRIOR-
  44. 43 ITIZE) FUNCTION.  YOU CAN MOVE A
  45. 44 LINE TO ANOTHER NINE-LINE SET USING
  46. 45 THE 'C' (COPY) FUNCTION. ONCE YOU
  47. 46 COPY IT TO ANOTHER SET THEN DELETE
  48. 47 IT FROM THE FIRST SET.
  49. 48 -
  50. 49 PUSH '5' FOR EXAMPLE ITEMS.
  51. 50 --------
  52. 51 TAKE OUT TRASH
  53. 52 WAKE UP EARLY TOMORROW
  54. 53 EAT BREAKFAST WITH WIFE THURSDAY
  55. 54 WASH CLOTHES
  56. 55 PACK FOR TRIP
  57. 56 READ MOBY DICK
  58. 57 BREATH ON A CONTINUING BASIS
  59. 58 SEND MONEY TO GREG ROWE ($2-$10)
  60. 59 ENJOY LIFE
  61. 60 ------- PERSONAL -----------
  62. 61 SEND MONEY TO GREG ROWE ($2-$10)
  63. 70 -------- MONITOR:
  64. 71 SEND MONEY TO GREG ROWE ($2-$10)
  65. 80 ------- COORDINATE -------
  66. 81 SEND MONEY TO GREG ROWE ($2-$10)
  67. 90 -
  68. 91 SEND MONEY TO GREG ROWE ($2-$10)
  69. 101 J
  70. 102 MORE THINGS TO DO OR NOTES / (null)ALS
  71. 111 K  SEND MONEY TO GREG
  72. 121 L  SEND MONEY TO GREG
  73. 131 M  SEND MONEY TO GREG
  74. 141 N  SEND MONEY TO GREG
  75. 151 O  SEND MONEY TO GREG
  76. 161 P  SEND MONEY TO GREG
  77. 171 Q  SEND MONEY TO GREG
  78. 181 R  SEND MONEY TO GREG
  79. 191 S  SEND MONEY TO GREG
  80. 690 -
  81. 700 GREG'S BROAD LIFE MISSIONS
  82. 701 -
  83. 702 BE A DISCIPLE OF JESUS
  84. 703 (WHO DIED FOR HIS DREAM).
  85. 705 HOMEY, BROTHERLY, SALT, LIGHT,
  86. 706 CHAR.  HARMONIZE MAN WITH (null)D.
  87. 714 -
  88. 715 BE A STABLE, COMMON SENSE,
  89. 716 PERSONAL LEADER. DO ONLY
  90. 717 NEEDED ACTIONS.POWER,NOT HYPE.
  91. 795 -
  92. 800 - PERSONAL LIFE (null)ALS -
  93. 801 -  DO NOTHING WRONG   -
  94. 851 --- PROFESSIONAL ---
  95. 852 BE A SENIOR EXECUTIVE.
  96. 853 ENTHUSIASTIC,RELIABLE,HONEST.
  97. 854 SCHEDULE NEXT DAY AFTER DINNER.
  98. 999 -
  99. 1000 POKE 53280,8:POKE53281,8 :REM--------------------------------BOARDER/BKGRD
  100. 1010 PRINT"[147]RUN 1020[158]":REM-----------
  101. 1012 POKE1140,0:POKE55412,1:POKE1540,1:POKE55812,1:REM---SET WHAT LINES TO LIST
  102. 1016 GOSUB9000:REM-------LIST LINES
  103. 1034 PRINT"RUN 1056[158]  GP'S DEFERED ACTIONS  GP ROWE[158]"
  104. 1036 PRINT"[155][218]SEE[218]OPTIONS[218][216][218][216][218][216][218][216][218][216][218][216][218][216][218][216][218]AT[218]BOTTOM[218][158][146]"
  105. 1038 GOSUB9100:REM--GET LETTER OR #
  106. 1046 POKE1140,P
  107. 1052 GOSUB9200:REM--LIST TOP HALF
  108. 1056 PRINT"[149]RUN 1066...PICK A 2ND # FOR BOTTOM HALF[158]"
  109. 1058 GOSUB9100:REM--GET LETTER OR #
  110. 1060 POKE1540,P
  111. 1062 PRINT""
  112. 1064 GOSUB9200:REM--LIST BOTTOM HALF
  113. 1066 PRINT"[155]  [146]0=1-[158]"
  114. 1067 PRINT"RUN 1038[158]"
  115. 1068 GOTO1034
  116. 1100 PRINT"[158]RUN 9000":REM------- ADD*
  117. 1110 PRINT"                                       "
  118. 1111 PRINT"                                       [145][145][145]"
  119. 1112 INPUT"OVERWRITE WHAT LINE # (E=EXIT)         [157][157][157][157][157][157][157][157][157]";HO$(0)
  120. 1113 IF HO$(0)="E" GOTO9000
  121. 1115 PRINT"[158]"HO$(0)
  122. 1116 PRINT"[155][145][145][145][145]ENTER ACTION  "
  123. 1117 PRINT"(NOT ?,: #1ST)[146]STOP[146][223][169]"
  124. 1118 PRINT"                                       [145]"
  125. 1120 INPUT" ";HO$(1)
  126. 1122 PRINT"                      [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][158]"HO$(1)
  127. 1126 PRINT"      SET.WAIT.                [145][145]"
  128. 1128 POKE631,13:POKE632,19:POKE633,13:POKE198,3: REM--BUFFER-RTN,HOME,RTN
  129. 1129 END
  130. 1134 P=PEEK(1500)
  131. 1200 PRINT"[158]RUN 9000":REM--------COPY*
  132. 1202 PRINT"                                       "
  133. 1204 PRINT"                                       "
  134. 1206 PRINT"                                       [145][145]"
  135. 1210 PRINT"HIT THE 2ND DIGIT OF A TOP LINE TO COPY"
  136. 1212 GETZ$:IFZ$=""GOTO1212
  137. 1214 L=ABS(ASC(Z$+CHR$(0))-48):IFL<0ORL>9GOTO1212
  138. 1216 INPUT"[145]COPY TO (+OVERWRITE) WHAT LINE  99     [157][157][157][157][157][157][157][157][157]";HO$(0)
  139. 1218 PRINT"[158]"
  140. 1230 FORC=1TOL:PRINT:NEXTC:PRINTHO$(0)"[145][145][145]"
  141. 1234 POKE631,13:POKE632,19:POKE633,13:POKE198,3
  142. 1240 END
  143. 1300 PRINT"[158]RUN 9000":REM---- DELETE*
  144. 1304 PRINT"                                       "
  145. 1306 PRINT"                                       [145][145][145]"
  146. 1308 INPUT"DELETE WHAT LINE NUMBER (E=EXIT)  90   [157][157][157][157][157][157][157]";HO$(0)
  147. 1309 IF HO$(0)="E" GOTO9000
  148. 1310 PRINT"[158]"HO$(0)" D"
  149. 1312 PRINT"[145][145]DELETE (Y/N)?                         [158]"
  150. 1313 GETZ$:IFZ$=""GOTO1313
  151. 1314 IFZ$="N"GOTO9000
  152. 1316 PRINT"          [157][157][157][157]SET.WAIT.                [145][145]"
  153. 1318 POKE631,13:POKE632,19:POKE633,13:POKE198,3: REM--BUFFER-RTN,HOME,RTN
  154. 1320 END
  155. 1400 PRINT"":REM----------PRIORITIZE *
  156. 1403 PRINT"RUN 1400...[155] D=DONE (+DANGEROUS), E=EXIT[152]"
  157. 1410 PRINT"WHICH TOP LINE IS NEXT IMPORTANT (1-9)?"
  158. 1411 S=1105
  159. 1412 FORN=1TO9
  160. 1414 GETL$:IFL$=""GOTO1414
  161. 1416 IFL$="E"GOTO9000
  162. 1418 IFL$="D"GOTO1428
  163. 1420 L=ASC(L$+CHR$(0))-48
  164. 1422 F=PEEK(1105+L*40):IFF=32THENS=1104:REM--CHECK IF ACTIONS 1-9
  165. 1425 POKE(S+L*40),N+48:POKE(54272+S+L*40),2:REM-INSERT NEW  PRIORITY
  166. 1428 NEXTN
  167. 1429 PRINT"[129]RUN 1441"
  168. 1430 PRINT"[145][145][145][145][145][145][145][145][145][145][145]":REMCHGQ
  169. 1432 POKE 631,13:POKE632,13:POKE633,13:POKE634,13:POKE635,13:POKE636,13
  170. 1434 POKE 637,13:POKE638,13:POKE639,13:POKE640,13:POKE198,10:REM-10 IN BUFFER
  171. 1436 PRINT" SET. WAIT.                   [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][145][145]"
  172. 1440 END
  173. 1441 PRINT"                   "
  174. 1445 GOTO9000
  175. 1500 PRINT"":REM-EXIT
  176. 1502 FORN=1TO3:PRINT"                                       ":NEXTN
  177. 1503 PRINT"BE SURE TO SAVE USING UTILITIES!       [158]"
  178. 1504 PRINT"[145][145]"
  179. 1506 POKE631,82:POKE632,85:POKE633,78:POKE634,17:POKE198,4
  180. 1508 END
  181. 1600 PRINT"[192][145][158]":REM-LIST100+
  182. 1604 FORN=1TO9:PRINT"                                       ":NEXTN
  183. 1606 PRINT"[145][145][145][145][145][145][145][145][145][145][145]"
  184. 1608 POKE 631,19:POKE632,13:POKE198,2
  185. 1609 P=PEEK(1540):IF P>9 GOTO 1612
  186. 1610 POKE1540,9
  187. 1612 P=PEEK(1540)+1
  188. 1614 POKE1540,P
  189. 1622 IFP=10 THENLIST101-109
  190. 1624 IFP=11 THENLIST111-119
  191. 1626 IFP=12 THENLIST121-129
  192. 1628 IFP=13 THENLIST131-139
  193. 1630 IFP=14 THENLIST141-149
  194. 1631 IFP=15 THENLIST151-159
  195. 1632 IFP=16 THENLIST161-169
  196. 1633 IFP=17 THENLIST171-179
  197. 1634 IFP=18 THENLIST181-189
  198. 1635 IFP=19 THENLIST191-199
  199. 1690 GOTO9000
  200. 1700 PRINT"[147]":POKE631,82:POKE632,85:POKE633,78:POKE198,3
  201. 1704 LIST700-723: REM--LIST/MODIFY GOALS
  202. 1800 PRINT"[147]HELP:              HIT ANY KEY TO EXIT"
  203. 1820 PRINT"[158]SEND SOME MONEY TO:[157][157][157][157][157][157][157][157][157][157][157][157][157][157]GREG ROWE"
  204. 1822 PRINTTAB(5);"2307 FAIRFAX ROAD"
  205. 1824 PRINTTAB(5);"SO. CHARLESTON, WV  25303"
  206. 1830 PRINT"SELECT OPTIONS AS LISTED AT THE BOTTOM"
  207. 1832 PRINT"OF THE MAIN SCREEN.  DATA IS STORED"
  208. 1834 PRINT"DIRECTLY ONTO PROGRAM LINES."
  209. 1835 PRINT"OPTION KEYS:   (SAVE USING UTILITIES!!)[158]"
  210. 1836 PRINT"0=LIST LINES   A=ADD A LINE (IT'S ADDED"
  211. 1838 PRINT"  1 THRU 9       IN PLACE OF OLD ONE)  "
  212. 1840 PRINT"1=LINES 11-19  C=COPY A LINE. COPIED   "
  213. 1842 PRINT"2=LINES 21-29    LINE MUST APPEAR IN TOP"
  214. 1844 PRINT"[145]3=LINES 31-39    HALF OF SCREEN (1 - 9)"
  215. 1846 PRINT"      .        D=DELETE A LINE         "
  216. 1848 PRINT"      .        U=UTILITIES ([155]PRINT,SAVE[158])"
  217. 1850 PRINT"      .        P=PRIORITIZE ACTIONS IN "
  218. 1852 PRINT"M=(CAN BE RE-    TOP HALF OF SCREEN    "
  219. 1854 PRINT"  PEATED)101+  G=LIST LINES 700-799    "
  220. 1870 GETZ$:IFZ$=""GOTO1870
  221. 1875 PRINT"[147]":POKE1140,0:POKE55412,1:POKE1540,1:POKE55812,1:GOTO9000
  222. 8000 END
  223. 9000 P=PEEK(1140):PRINT"[158]RUN 9006"
  224. 9004 GOSUB9200
  225. 9006 P=PEEK(1540):PRINT"[158]RUN 9018"
  226. 9010 PRINT"[155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][145][158]"
  227. 9012 GOSUB9200
  228. 9018 PRINT"                                       "
  229. 9020 PRINT"[155]  [146]0=1-9, [146]1=11-19...REPEATED [146]MORE=101-  "
  230. 9022 PRINT" [146]ADD,[146]COPY,[146]DEL,[146]UTIL,[146]PRI,[146]GOALS,[146]HELP,[146]EXIT [145]"
  231. 9030 GOTO1034
  232. 9100 GETZ$:IFZ$=""THEN9100
  233. 9101 IFZ$="A"GOTO1100
  234. 9102 IFZ$="C"GOTO1200
  235. 9104 IFZ$="D"GOTO1300
  236. 9105 IFZ$="H"GOTO1800
  237. 9106 IFZ$="P"GOTO1400
  238. 9108 IFZ$="E"GOTO1500
  239. 9109 IFZ$="U"GOTO62500
  240. 9110 IFZ$="M"GOTO1600
  241. 9111 IFZ$="G"GOTO1700
  242. 9112 P=ABS(ASC(Z$+CHR$(0))-48):IFP<0ORP>9GOTO9100
  243. 9114 RETURN
  244. 9200 POKE 631,19:POKE632,13:POKE198,2:PRINT :REMARK-------LINES TO LIST OPTIONS
  245. 9201 FORN=1TO9:PRINT"                                       ":NEXTN
  246. 9202 PRINT"[145][145][145][145][145][145][145][145][145][145][145]"
  247. 9204 IFP=0THENLIST 1-9 :REM--GOSUB
  248. 9205 IFP=1THENLIST 11-19
  249. 9206 IFP=2THENLIST 21-29
  250. 9207 IFP=3THENLIST 31-39
  251. 9208 IFP=4THENLIST 41-49
  252. 9209 IFP=5THENLIST 51-59
  253. 9210 IFP=6THENLIST 61-69
  254. 9211 IFP=7THENLIST 71-79
  255. 9212 IFP=8THENLIST 81-89
  256. 9213 IFP=9THENLIST 91-99
  257. 9216 RETURN
  258. 9900 END
  259. 62500 REM----------BASIC
  260. 62501 POKE 53280,14:POKE 53281,6 : REM--BKGRD, BORDER
  261. 62502 PRINT"[147] 1 = SAVE AND QUIT TO BASIC":REM---------------------------
  262. 62503 PRINT" 2 = PRINT DATA[157][157][157][157][157][157][157][157][157][157][157][157][157][157]3 = RE-START"
  263. 62504 GETZ$:IFZ$=""GOTO62504
  264. 62505 IFZ$="2"GOTO62550
  265. 62506 IFZ$="3"GOTO1000
  266. 62510 PRINT"[147][154]THIS SAVES THE PROGRAM (AND DATA) AS    "
  267. 62511 PRINT"[145] 'TO-DO' OR AS A NAME THAT YOU PROVIDE. "
  268. 62512 PRINT"[145]  LOAD THAT NAME AT YOUR NEXT SESSION.  "
  269. 62513 PRINT"[145]  A NAME MUST BE 5 CHAR LONG, E.G. MAY29"
  270. 62514 PRINT"[145]TO RETURN TO THE PROGRAM AFTER SAVING:  "
  271. 62515 PRINT"[145]  TYPE (OR GO TO)'RUN',THEN HIT <RETURN>"
  272. 62517 PRINT"  [154]LIST        :REMARK-LIST DATA        "
  273. 62518 PRINT"  LIST 1000-  :REMARK-MODIFY PROGRAM   "
  274. 62519 PRINT"  LIST 1100-  :REMARK-ADD,COPY,DELETE  "
  275. 62520 PRINT"  LIST 1400-  :REMARK-PRIOR.,E,100,HELP"
  276. 62521 PRINT"  LIST 9000-  :REMARK-COMMENTS,MENUS   "
  277. 62522 PRINT"  LIST 62500- :REMARK-UTILITIES        "
  278. 62523 PRINT"  RUN [145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  279. 62528 INPUT"[155]DATE? (OR 'NAME.', E=EXIT)  [159]TO-DO[155][157][157][157][157][157][157][157]";DATE$
  280. 62529 IF DATE$="E"THENEND
  281. 62530 PRINT"SAVE @0:"DATE$" ,8       "
  282. 62531 POKE 1428,34:POKE1437,34:REM-QUOTE MARKS
  283. 62532 INPUT"[145][145]SAVE ALL CHANGES  Y                  [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";HO$(1)
  284. 62533 IF HO$(1)="N"THENEND
  285. 62534 PRINT"[145]       SET. WAIT.[145][145]"
  286. 62539 POKE 631,13:POKE632,17:POKE633,13:POKE634,19:POKE635,13:POKE198,1
  287. 62540 END: REM ------------------THE END
  288. 62550 INPUT"[147] START AT WHAT LINE  1 [157][157][157][157]";L1$:REM-------------------------PRINT
  289. 62551 INPUT" PRINT TO WHAT LINE  99[157][157][157][157]";L2$
  290. 62552 POKE53265,PEEK(53265)AND 239
  291. 62553 PRINT"OPEN4,4CMD4, ACTION LIST       ":REM--***---MODIFY HEADING HERE!
  292. 62554 POKE1356,34:POKE1375,34
  293. 62555 PRINT"LIST"L1$"-"L2$"PRINT#4"
  294. 62556 PRINT"CLOSE4RUN62600[145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  295. 62566 POKE 631,13:POKE632,13:POKE633,13:POKE634,13:POKE635,13:POKE636,13
  296. 62567 POKE198,6
  297. 62568 END
  298. 62600 POKE53265,PEEK(53265)OR 16
  299. 62602 GOTO62510
  300. 62908 RETURN
  301.